home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / COMMUNIC / UC_CIS.ZIP / WINFILE.SCR < prev   
Text File  |  1993-07-15  |  4KB  |  174 lines
  1. Delay 2000
  2. Send "^C"
  3. Waitfor "ID"
  4. Delay 150
  5. Send "XXXXX,XXX^M"
  6. Waitfor "Password"
  7. Delay 200
  8. Send "XXXXXX.XXXXX^M"
  9. Waitfor "!"
  10. ALARM
  11. Clear
  12. ;
  13. ; Variables - easily modified.
  14. ;
  15. szTargetFile = "C:\WINDOWS\UNICOM\WINFILE.LOG"
  16. szBackFile = "C:\WINDOWS\UNICOM\WINF_BAK.LOG"
  17. szForumOptions = "OPT;INI;1;MOD;3;EDI EDIT;PAU N;REP LIST;TYPE N;SKIP N;CHAR;S^M"
  18. ;
  19. IF (strlen(DirLastOnDate()) > 5)
  20.     DisplayString(1,20,"This script was last used")
  21.     DisplayString(28,20,DirLastOnDate())
  22. ENDIF
  23. DisplayString(1,22,"Hit <ENTER> to find only the most recent files!")
  24. i = 0
  25. WHILE (i < 1)
  26. SWITCH(InputString(szDateString, "WINDOW'S FILES:  ENTER day(s) to search back . . . "))
  27.     CASE (StrisNumeric(szDateString))==0
  28.         Clear
  29.         DisplayString(1,22,"No, it must be a number, e.g. 10, 3, etc.")
  30.     ENDCASE
  31.     CASE (StrisSpace(szDateString))==1
  32.         Clear
  33.         DisplayString(1,22,"That defaults to finding files added within the last day.")
  34.         szDateString = "1"
  35.         Delay 1500
  36.         i = 1
  37.     ENDCASE
  38.     CASE (StrisNumeric(szDateString))==1
  39.         i = 1
  40.     ENDCASE
  41. ENDSWITCH
  42. ENDWHILE
  43. Delay 10
  44. Clear
  45. ;
  46. DisplayString(1,22,"Hit <ENTER> to search for all new files in the selected forums.")
  47. InputString(szKeyString, "ENTER A KEYWORD (or leave blank for ALL)")
  48. IF (StrisAlphaNum(szKeyString))==0
  49.     Clear
  50.     DisplayString(1,22,"Okay!  . . . but only the first KEYWORD is actually used.")
  51.     Alarm
  52.     Delay 1500
  53.     Clear
  54. ENDIF
  55. Clear
  56. ;
  57. Delay 10
  58. send "SET BRIEF YES^M"
  59. CLEAR
  60. Waitfor "!"
  61. Delay 10
  62. send "SET PAGED NO^M"
  63. CLEAR
  64. Waitfor "!"
  65. Delay 10
  66. send "SET BLANK YES^M"
  67. CLEAR
  68. Waitfor "!"
  69. CLEAR
  70. ALARM(1)
  71. ;
  72. Delay 10
  73. IF FindFile(szTargetFile)
  74.     DisplayString(1,20,"Save the existing LOG generated by this script as a separate file?")
  75.     DisplayString(1,22,"    (NO simply deletes the existing file; CANCEL appends to it.)")
  76.     SWITCH(Response = Message("Save the existing LOG?","YESNOCANCEL","ICONQUESTION"))
  77.         CASE (Response == 2) 
  78.             Log("OPEN",szTargetFile)
  79.         ENDCASE 
  80.         CASE (Response == 6)
  81.             IF FindFile(szBackFile)
  82.                 FileDelete(szBackFile)
  83.             ENDIF
  84.             IF (FileRename(szTargetFile,szBackFile))
  85.                 CLEAR
  86.                 DisplayString(1,22,"Existing LOG saved as ")
  87.                 DisplayString(23,22,szBackFile)
  88.                 Delay 1500
  89.             ENDIF
  90.             Log("OPEN",szTargetFile)
  91.         ENDCASE
  92.         CASE (Response == 7) 
  93.             Log("TRUNC",szTargetFile)
  94.         ENDCASE 
  95.     ENDSWITCH
  96. CLEAR
  97. ENDIF
  98. ;
  99. ; Okay, that should collect or set up everything that we need.  Let's do it!
  100. ;
  101. GOSUB MODULES
  102. ;
  103. Delay 1000
  104. Log("CLOSE")
  105. StatusMessage("DONE, AND NOW LOGGING OFF!")
  106. Send ("OFF^M")
  107. Delay 10
  108. szEditor = Strtok(WinReadIni("Extensions","txt")," ")
  109. Delay 10
  110. Run(szEditor ,szTargetFile)
  111. Delay 10
  112. QUIT
  113.  
  114. :FORUMLOOP
  115. Send "go "
  116. Send(szForumString)
  117. Send "^M "
  118. Delay 10
  119. Waitfor("Press <CR> !",90)
  120. Log("CLOSE")
  121. Delay 10
  122. Send "^M"
  123. Waitfor( "!",120)
  124. Delay 10
  125. Send(szForumOptions)
  126. Waitfor "New prompt:"
  127. Delay 10
  128. Send "!^M"
  129. Waitfor "!!"
  130. Delay 10
  131. Send "LIB 1^M"
  132. Waitfor( "!!",120) 
  133. Delay 10
  134. Send "SCAN *.* DES LIB:ALL AGE:"
  135. Send(szDateString)
  136. IF (strlen(szKeyString)) > 1)
  137.     Send" KEYWORD:"
  138.     Send(szKeyString)
  139. ENDIF
  140. Send"^M"
  141. Delay 1000
  142. Log("OPEN",szTargetFile)
  143. Waitfor("LIB 1 !!",900)
  144. Delay 10
  145. RETURN
  146.  
  147. ;_______________________________________________________________
  148. ;
  149. :MODULES
  150. ;enter the forums that you wish to search here, 
  151. ;in the following pattern - 
  152. ;
  153. ;Module1:  Start WINSHARE Forum
  154. Assign(szForumString,"CIS:WINSHARE")
  155. GOSUB FORUMLOOP
  156. Delay 10
  157. ;
  158. ;Module2:   Start WINFUN Forum
  159. Assign(szForumString,"CIS:WINFUN")
  160. GOSUB FORUMLOOP
  161. Delay 10
  162. ;
  163. ;Module3:   Start Windows' User Group Forum
  164. Assign(szForumString,"CIS:WUGNET")
  165. GOSUB FORUMLOOP
  166. Delay 10
  167. ;
  168. ;Module4:   Start WINDOWS SOURCES Forum
  169. Assign(szForumString,"ZNT:WINSOU")
  170. GOSUB FORUMLOOP
  171. Delay 10
  172. ;
  173. RETURN
  174.